home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed15.d64 / lesson 4 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  247 lines
  1. 10 GOTO100
  2. 50 REM <YES>
  3. 51 S=54272:FORE=STOS+28:POKEE,0:NEXT
  4. 52 POKE54296,15:POKE54277,42:POKE54278,250
  5. 53 POKE54276,23:POKE54273,23:POKE54272,191
  6. 54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
  7. 55 POKE54296,0:RETURN
  8. 60 REM <N0>
  9. 61 S=54272:FORE=STOS+28:POKEE,0:NEXT
  10. 62 POKE54296,15:POKE54277,18:POKE54278,242
  11. 63 POKE54276,33:POKE54273,4:POKE54272,48
  12. 64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
  13. 65 POKE54296,0:RETURN
  14. 70 REM <BLIP>
  15. 71 S=54272:FORE=STOS+28:POKEE,0:NEXT
  16. 72 POKE54296,5:POKE54277,42:POKE54278,250
  17. 73 POKE54276,23:POKE54273,23:POKE54272,191
  18. 74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  19. 75 POKE54296,0:RETURN
  20. 80 FORT=1TO500:NEXT:RETURN
  21. 81 FORT=1TO1000:NEXT:RETURN
  22. 82 FORT=1TO2000:NEXT:RETURN
  23. 83 FORT=1TO3000:NEXT:RETURN
  24. 84 FORT=1TO4000:NEXT:RETURN
  25. 85 FORT=1TO5000:NEXT:RETURN
  26. 90 GOSUB81:GOSUB70
  27. 91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE
  28. 92 [161]R$:[139]R$[179][177][199](32)[167]92
  29. 93 [142]
  30. 95 [141]82:[141]90
  31. 99 [143]
  32. 100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0
  33. 101 [153]"LOAD      ATNCLOSE(null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)(null)CHR$(null)ATN(null)
  34. 102 PRINT"           [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211]
  35. 105 [153]"                                        WAIT";
  36. 110 [153]"                                        WAIT";
  37. 115 [153]"     (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC    WAIT";
  38. 120 [153]"                                        WAIT";
  39. 125 [153]"           CHR$RADE 3     (null)ART 2           WAIT";
  40. 130 [153]"                                        WAIT";
  41. 135 [153]"               (null)ESSON 4                 WAIT";
  42. 140 [153]"                                        WAIT";
  43. 145 [153]"           CHR$ENERAL (null)ROBLEMS   OPEN          WAIT";
  44. 150 [153]"                                        WAIT";
  45. 155 [153]"                                        WAIT"
  46. 160 [153]"                  WHC "
  47. 165 [141]90
  48. 170 [153]"LOAD       ATNND AWAY WE GO......."
  49. 175 [141]81:[141]50:[141]80
  50. 200 [153]"PRINT#LOAD               (null)UESTION 1 WAITOPEN":Z[178]0
  51. 205 [153]"  MID$OHN HAS $1.75 IN THE BANK.  LEFT$OW
  52. 210 PRINT"  MUCH WILL HE HAVE IF HE PUTS IN
  53. 215 [153]"  $7.35 MORE? (STR$ON'T FORGET THE $ SIGN)"
  54. 220 [141]81:[141]70
  55. 225 [153]"             ON"
  56. 230 [133] A$
  57. 240 [139]A$[179][177]"$9.10"[167] 270
  58. 250 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  59. 260 P[178]P[170]1:[137]300
  60. 270 [153]"DEF  (null)(null)LENLEFT$! .......... (null)AKE UP!":[141]60:[141]82:Z[178]Z[170]1
  61. 275 [139]Z[178]2[167]G[178]G[170]1:[137]285
  62. 280 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  63. 282 [153]"OPENONON                                        ONONONONONONON"
  64. 283 [137]225
  65. 285 [153]"ONONSYS  (null)HE ANSWER IS $9.10SYS              ":[141]82
  66. 290 [153]"  1.75 + 7.35 = 9.10                 "
  67. 295 [141]82:[141]90
  68. 300 [153]"PRINT#LOAD               (null)UESTION 2 WAITOPEN":Z[178]0
  69. 305 [153]"  ATN THIRD GRADE CLASS HELD A CAKE
  70. 310 PRINT"  SALE AND RECEIVED $6.80.  [212]HEIR
  71. 315 [153]"  EXPENSES WERE $3.45.  (null)HAT WAS
  72. 317 PRINT"  THE AMOUNT EARNED FROM THE SALE?"
  73. 320 GOSUB81:GOSUB70
  74. 325 PRINT"             [145]"
  75. 330 INPUT A$
  76. 340 IFA$<>"$3.35"THEN370
  77. 350 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  78. 360 P=P+1:GOTO400
  79. 370 PRINT"[150]  [207][213][195][200]! .......... [195]OME ON!!!":GOSUB60:GOSUB82:Z=Z+1
  80. 375 IFZ=2THENG=G+1:GOTO385
  81. 380 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  82. 382 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  83. 383 GOTO325
  84. 385 PRINT"[145][145][158]  [212]HE ANSWER IS $3.35[158]              ":GOSUB82
  85. 390 PRINT"  6.80 -3.45 = 3.35                "
  86. 395 GOSUB82:GOSUB90
  87. 400 PRINT"[152][147]               [209]UESTION 3 [146][159]":Z=0
  88. 405 PRINT"  [201]F OIL SELLS FOR $1.25 A LITRE,
  89. 410 [153]"  HOW MUCH MUST (null)OM PAY FOR 5 LITRES?"
  90. 420 [141]81:[141]70
  91. 425 [153]"             ON"
  92. 430 [133] A$
  93. 440 [139]A$[179][177]"$6.25"[167] 470
  94. 450 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  95. 460 P[178]P[170]1:[137]500
  96. 470 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  97. 475 [139]Z[178]2[167]G[178]G[170]1:[137]485
  98. 480 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  99. 482 [153]"OPENONON                                        ONONONONONONON"
  100. 483 [137]425
  101. 485 [153]"ONONSYS  (null)HE ANSWER IS $6.25SYS              ":[141]82
  102. 490 [153]"  1.25 X 5 = 6.25                    "
  103. 495 [141]82:[141]90
  104. 500 [153]"PRINT#LOAD               (null)UESTION 4 WAITOPEN":Z[178]0
  105. 505 [153]"  ATNT $30.25 A PAIR, HOW MUCH WOULD
  106. 510 PRINT"  [205]R. [193]DAMS HAVE TO PAY FOR 3 PAIRS       OF SHOES?"
  107. 520 GOSUB81:GOSUB70
  108. 525 PRINT"             [145]"
  109. 530 INPUT A$
  110. 540 IFA$<>"$90.75"THEN 570
  111. 550 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  112. 560 P=P+1:GOTO600
  113. 570 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  114. 575 IFZ=2THENG=G+1:GOTO585
  115. 580 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  116. 582 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  117. 583 GOTO525
  118. 585 PRINT"[145][145][158]  [212]HE ANSWER IS $90.75[158]              ":GOSUB82
  119. 590 PRINT"  30.25 X 3 = 90.75                  "
  120. 595 GOSUB82:GOSUB90
  121. 600 PRINT"[152][147]               [209]UESTION 5 [146][159]":Z=0
  122. 605 PRINT"  [193] TEACHER BOUGHT A VOLLEY BALL FOR
  123. 610 [153]"  $2.90 AND A NET FOR $4.25.
  124. 615 PRINT"  [200]OW MUCH DID SHE SPEND?
  125. 620 [141]81:[141]70
  126. 625 [153]"             ON"
  127. 630 [133] A$
  128. 640 [139]A$[179][177]"$7.15"[167] 670
  129. 650 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  130. 660 P[178]P[170]1:[137]700
  131. 670 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  132. 675 [139]Z[178]2[167]G[178]G[170]1:[137]685
  133. 680 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  134. 682 [153]"OPENONON                                        ONONONONONONON"
  135. 683 [137]625
  136. 685 [153]"ONONSYS  (null)HE ANSWER IS $7.15SYS              ":[141]82
  137. 690 [153]"  2.90 + 4.25 = 7.15                 "
  138. 695 [141]82:[141]90
  139. 700 [153]"PRINT#LOAD               (null)UESTION 6 WAITOPEN":Z[178]0
  140. 705 [153]"  LEFT$OW MUCH DID LEFT$ELEN PAY FOR 6 METRES
  141. 710 PRINT"  OF CLOTH AT $2.45 A METRE?"
  142. 720 GOSUB81:GOSUB70
  143. 725 PRINT"             [145]"
  144. 730 INPUT A$
  145. 740 IFA$<>"$14.70"THEN 770
  146. 750 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  147. 760 P=P+1:GOTO800
  148. 770 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  149. 775 IFZ=2THENG=G+1:GOTO785
  150. 780 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  151. 782 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  152. 783 GOTO725
  153. 785 PRINT"[145][145][158]  [212]HE ANSWER IS $14.70[158]              ":GOSUB82
  154. 790 PRINT"  2.45 X 6 = 14.70                   "
  155. 795 GOSUB82:GOSUB90
  156. 800 PRINT"[152][147]               [209]UESTION 7 [146][159]":Z=0
  157. 805 PRINT"  [201]T COST $6.75 TO BUY COMMUTER
  158. 810 [153]"  TICKETS FOR THREE BOYS TO GO TO         THE EXHIBITION.
  159. 815 PRINT"  [200]OW MUCH WAS THIS FOR EACH BOY?"
  160. 820 GOSUB81:GOSUB70
  161. 825 PRINT"             [145]"
  162. 830 INPUT A$
  163. 840 IFA$<>"$2.25"THEN 870
  164. 850 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  165. 860 P=P+1:GOTO900
  166. 870 PRINT"[150]  [207][213][195][200]! .......... [215]AKE UP!":GOSUB60:GOSUB82:Z=Z+1
  167. 875 IFZ=2THENG=G+1:GOTO885
  168. 880 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  169. 882 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  170. 883 GOTO825
  171. 885 PRINT"[145][145][158]  [212]HE ANSWER IS $2.25[158]              ":GOSUB82
  172. 890 PRINT"  6.75 / 3 = 2.25                    "
  173. 895 GOSUB82:GOSUB90
  174. 900 PRINT"[152][147]               [209]UESTION 8 [146][159]":Z=0
  175. 905 PRINT"  [202]AMIE WAS GIVEN $10.00 BY HIS
  176. 910 [153]"  GRANDFATHER.  LEFT$E SPENT $4.75 FOR        A SWIMMING MASK.
  177. 915 PRINT"  [200]OW MUCH MONEY DID HE HAVE LEFT?"
  178. 920 GOSUB81:GOSUB70
  179. 925 PRINT"             [145]"
  180. 930 INPUT A$
  181. 940 IFA$<>"$5.25"THEN 970
  182. 950 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  183. 960 P=P+1:GOTO1000
  184. 970 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  185. 975 IFZ=2THENG=G+1:GOTO985
  186. 980 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  187. 982 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  188. 983 GOTO925
  189. 985 PRINT"[145][145][158]  [212]HE ANSWER IS $5.25[158]              ":GOSUB82
  190. 990 PRINT"  10.00 - 4.75 = 5.25                "
  191. 995 GOSUB82:GOSUB90
  192. 1000 PRINT"[152][147]               [209]UESTION 9 [146][159]":Z=0
  193. 1005 PRINT"  [200]OW MUCH WOULD [205]R. [195]RAIG HAVE TO
  194. 1010 [153]"  PAY FOR 7 FOOTBALL TICKETS THAT         $2.25 EACH?"
  195. 1020 [141]81:[141]70
  196. 1025 [153]"             ON"
  197. 1030 [133] A$
  198. 1040 [139]A$[179][177]"$15.75"[167] 1070
  199. 1050 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  200. 1060 P[178]P[170]1:[137]1100
  201. 1070 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  202. 1075 [139]Z[178]2[167]G[178]G[170]1:[137]1085
  203. 1080 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  204. 1082 [153]"OPENONON                                        ONONONONONONON"
  205. 1083 [137]1025
  206. 1085 [153]"ONONSYS  (null)HE ANSWER IS $15.75SYS              ":[141]82
  207. 1090 [153]"  2.25 X 7 = 15.75                   "
  208. 1095 [141]82:[141]90
  209. 1100 [153]"PRINT#LOAD               (null)UESTION 10 WAITOPEN":Z[178]0
  210. 1105 [153]"  ATN DINING TABLE COST $370.00 AND
  211. 1110 PRINT"  A CHINA CABINET COST $260.00
  212. 1115 [153]"  LEFT$OW MUCH DID THE TABLE COST?"
  213. 1120 [141]81:[141]70
  214. 1125 [153]"             ON"
  215. 1130 [133] A$
  216. 1140 [139]A$[179][177]"$370.00"[167]1170
  217. 1150 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  218. 1160 [137]1200
  219. 1170 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  220. 1175 [139]Z[178]2[167]G[178]G[170]1:[137]1185
  221. 1180 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  222. 1182 [153]"OPENONON                                        ONONONONONONON"
  223. 1183 [137]1125
  224. 1185 [153]"ONONSYS  (null)HE ANSWER IS $370.00SYS              ":[141]82
  225. 1190 [153]"  (null)EAD THE QUESTION!                 "
  226. 1195 [141]82:[141]90
  227. 1200 [153]"LOAD           (null)EPORT LENARD WAIT"
  228. 1205 D[178]W[171]G:C[178]10[171]W
  229. 1210 [153]"PRINT  1. (null)UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
  230. 1215 PRINT"                 ";C
  231. 1220 PRINT"[129]  2. [209]UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
  232. 1225 [153]"                 ";D
  233. 1230 [153]"DEF  3. (null)UESTIONS MISSED ON SECOND TRY:
  234. 1235 PRINT"                 ";G;""
  235. 1245 GOSUB90
  236. 1250 PRINT"[158][147]  [217]OU HAVE A CHOICE:
  237. 1255 [153]"  (null)RESS  (null) WAIT TO REPEAT THIS LESSON
  238. 1260 PRINT"  [208]RESS  [205] [146] TO RETURN TO THE MENU[159]"
  239. 1265 GETR$:IFR$<>"R"ANDR$<>"M"THEN1265
  240. 1270 IFR$="R"THENRESTORE:GOTO100
  241. 1275 RESTORE
  242. 1280 PRINT"[147] [210]ETURNING TO THE DISK MENU
  243. 1285 [147]"MENU",8
  244. 1290 [138]
  245. 1295 [128]
  246. 1300 [143] BILL CUMBERLAND 90:12:25
  247.